;# pwd.pl - keeps track of current working directory in PWD environment var;#;# $RCSfile: pwd.pl,v $$Revision: 4.1 $$Date: 92/08/07 18:24:11 $;#;# $Log:	pwd.pl,v $;#;# Usage:;#	require "pwd.pl";;#	&initpwd;;#	...;#	&chdir($newdir);package pwd;sub main'initpwd {    chop($ENV{'PWD'} = `pwd`);}sub main'chdir {    local($newdir) = shift;    if (chdir $newdir) {	chop($ENV{'PWD'} = `pwd`);	1;    }    else {	0;    }}1;